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ABSTRACT 

THE TSO3 DRIVE FUNCTION TIMER ASSISTS IN THE TESTING OF 
THE TMA-11 CONTROL UNIT AND TSO3 TAPE UNIT. SELECTED 
OPERATIONS ARE EXECUTED, TIMED, AND THE TIMES ARE THEN 
PRINTED (IN MILLISECONDS). THERE IS NO LIMIT OR ERROR 
TESTING FACILITIES IN THE PROGRAM, THE DECISION ON THE 
VALIDITY OF TIMES MEASURED MUST BE MADE BY THE OPERATOR. 
EITHER 1 OR 2 TSO3 UNITS MAY BE SELECTED. 

REQUIREMENTS 

EQUIPMENT 

PDP-11 WITH TMA-11 CONTROL UNIT AND 1 OR 2 TSO3 TAPE UNITS. 
STORAGE 

PROGRAM STORAGE 

THE PROGRAM REQUIRES 4K OF MEMORY. 

LOADING PROCEDURE 

METHOD 

PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED 

1. ABSOLUTE LOADER MUST BE IN MEMORY. 


2. PLACE BINARY TAPE IN READER. 
3. LOAD ADDRESS *7500 (* DETERMINED BY LOCATION OF LOADER). 
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4. PRESS ‘START’ (PROGRAM WILL LOAD). 
STARTING PROCEDURE 

CONTROL SWITCH SETTINGS: NONE 
STARTING ADDRESS 

200 

PROGRAM AND/OR OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY... 

SET DESIRED TSO3 TAPE UNITS ON-LINE. 

SET SWITCH REGISTER TO STARTING ADDRESS. 

LOAD ADDRESS. 

PRESS START. 

ENTER STARTING REGISTER ADDRESS. 

IF SPEED TEST ONLY, ENTER A ONE(1). 

IF ALL OTHERS, ENTER A ZERO(O). 

IF SPEED TEST, MOUNT 800 BPI SKEW TAPE AND TYPE CR. 
THE PROGRAM WILL AUTOMATICLY FIND THE AVAILABLE 
TSO3 TAPE UNITS TO BE TESTED. 

THE PROGRAM WILL BEGIN TIMING FUNCTIONS. 

ON COMPLETION OF ALL TESTS “END OF TIMING’’ WILL BE PRINTED AND 
THE PROCESSOR WILL HALT. 

TO REPEAT TEST: PRESS CONTINUE. 


*NOTE* THE PROGRAM HAS BEEN MODIFIED TO TEST 1-8 TSO3 
UNITS UNDER ACTI1M.IN THIS MODE SPEED TEST IS NOT SELECTED. 


OPERATING PROCEDURE 

OPERATIONAL SWITCH SETTINGS 

NONE 

ERRORS 

go Sg ere it pee 
TIMES MEASURED MUST BE DETERMINED BY THE OPERATOR. 

TIME RELATIONSHIPS 

A. ‘"'READ SHUTDOWN’ MUST BE < “WRITE SHUTDOWN’. 


B. GAPS MUST = 8>7>6>5>4>3, 3=2=1 (+0R- 5.0). 
C. “WRITE EOF’ SHOULD BE SLIGHTLY > ‘WRITE XIRG’’. 
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6.2 


6.3 


TIME LIMITS AND PRINTUUT FORMAT EXAMPLE 


eeere(ALL TIMES ARE IN MILLISECONDS) eenee 


FUNCTION UNIT 0 
WRITE FROM BOT 565.0 
WRITE SHUTDOWN 15.6 
WRITE START 35.8 
SETTLE DOWN DELAY 33.0 
WRITE TO ERASE HEAD 69.0 
BACKSPACE SHUTDOWN 7.0 
READ SHUTDOWN 7.0 


—— OOUUNN Ys 
— a oe . 
* &-ANCO 


8 
WRITE START 
WRITE XIRG 
READ FROM BOT 
WRITE EOF 
EOR TO EOF SPACE 
SPACE SHUTDOWN 
ONE INCH DATA TIME 


eeeeeetere END OF TIMING seeeeeeeee 
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SPEED TEST TIME PRINTOUT EXAMPLE 
FUNCTION UNIT 0 
TAPE SPEED FIND 81.0 


eeeteeeeee END OF TIMING teeeeeeeer 


UNIT 1 


SAME 


=2=1 (+0R- 5.0). 


SEQ 0005 


621.0 - 509.0 
17.6 = 13.6 
39.0 - 32.0 
36.0 - 30.0 
76.0 - 58.0 

7.7 = 6.3 
7.7 = 6.3 
39.0 - 32.0 

366.0 - 300.0 

258.0 - 212.0 

420.0 - 340.0 

400.0 - 320. 

7.6 - 6.3 
89.0 - 73.0 


RANGE MAX-MIN 
89.0 - 73.0 
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RESTRICTIONS 

STARTING RESTRICTIONS 

AT LEAST ONE TSO3 TAPE UNIT MUST BE ‘'ON-LINE"’. 
ALSO MAKE CERTAIN THAT EACH TSO3 THAT IS ‘‘ON=-LINE"’ 
HAS A UNIQUE UNIT NUMBER SELECTED. 

OPERATING RESTRICTIONS 


TMA-11 INSTRUCTION TEST MUST RUN WITHOUT ERRORS BEFORE ATTEMPTING 
TO OPERATE THIS PROGRAM. 


MISCELLANEOUS 
EXECUTION TIME 
NOT APPLICABLE 


SEQ 0006 
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9.0 
9.1 


PROGRAM DESCRIPTION 
WRITE FROM BOT DELAY 


WRITE FROM BOT DELAY IS THE TIME NECESSARY TO MOVE THE BEGINNING 
OF TAPE (BOT) MARKER APPROXIMATELY 6 INCHES PAST THE WRITE HEAD. 
THE FIRST RECORD ON TAPE MUST BE WRITTEN AT LEAST 3 INCHES AWAY 
FROM THE BOT MARKER. 


PROCEDURE TO MEASURE TIME: 


IF TSO3 IS NOT AT BOT IT IS REWOUND TO BOT. 

hp ee BYTE RECORD COUNTER AND CURRENT MEMLRY ADDRESS 
ISSUE WRITE FUNCTION, 800 BPI, SET ‘'GO"’. 

MONITOR CURRENT MEMORY ADDRESS REGISTER TO DETERMINE WHEN 
2ND BYTE IS OUTPUT. 

THE TIME FROM ‘'GO"’ UNTIL 2ND BYTE IS OUTPUT IS 
APPROXIMATELY EQUAL TO ‘WRITE FROM BOT DELAY’. 


WRITE SHUTDOWN 


WRITE SHUTDOWN IS THE AMOUNT OF TIME NECESSARY TO CONTINUE 
MOVING TAPE AFTER A RECORD IS WRITTEN SO THAT THE PROPER 
INTERRECORD GAP WILL EXIST BETWEEN RECORDS. 


PROCEDURE TO MEASURE TIME: 


A. THE PROGRAM USES THE SAME RECORD THAT WAS WRITTEN TO TIME 
“WRITE FROM BOT DELAY’. 

B. AFTER THE LAST BYTE (BC=0), INDICATING THE END OF THE 
RECORD, MONITOR ‘SETTLEDOWN’’ UNTIL IT BECOMES A 1. 

C. BL. FROM *‘BC=0"' UNTIL “’SETTLEDOWN'’ IS ‘WRITE 
HUTDOWN"’. 


SEQ 0007 
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WRITE START 


WRITE START IS THE TIME NECESSARY FOR TAPE TO ACCELERATE TO 
FULL SPEED AND GUARANTEE A 1/2 INCH INTERRECORD GAP. 


PROCEDURE TO MEASURE TIME: 


SAME AS "WRITE FROM BOT’’ EXCEPT NOW WE ARE NOT AT BOT. 

A. ne ho gn BYTE RECORD COUNTER AND CURRENT MEMORY ADDRESS 

B. ISSUE WRITE FUNCTION, 800 BPI, SET ‘'GO"’. 

C. MONITOR CURRENT MEMORY ADDRESS REGISTER TO DETERMINE WHEN 
2ND BYTE IS OUTPUT. 

D. THE TIME FROM ‘’GO"' gy 2ND BYTE IS OUTPUT IS APPROXIMATELY 
EQUAL TO ‘WRITE START" 


SETTLEDOWN DELAY 


TAPE DOES NOT ACTUALLY COME TO A COMPLETE STOP UNTIL SOME 

PERIOD OF TIME AFTER SHUTDOWN HAS ENDED. ALSO, AFTER TAPE HAS 
FULLY STOPPED, AN ADDITIONAL PERIOD OF TIME IS NECESSARY FOR THE 
TAPE AND HARDWARE TO ‘’SETTLEDOWN'’ AND BECOME STABLE. THE 
“SETTLEDOWN DELAY’' IS THE PERIOD OF TIME NECESSARY FOR THE TAPE 
AND MECHANICAL CHARACTERISTICS OF THE TSO3 TO BECOME STABLE, SO 
THAT THE UNIT CANNOT BE OPERATED, START/STOP, AT A FREQUENCY WHERE 
IT IS MECHANICALLY RESONANT. 


PROCEDURE TO MEASURE TIME: 


A. hacue kteae USES THE SAME RECORD THAT WAS WRITTEN TO TIME 

B. AFTER *‘SETTLEDOWN'’ BECOMES A 1, INDICATING THE START OF 
SETTLEDOWN, MONITOR ‘‘TU READY'’ UNTIL IT BECOMES A 1. 

C. THE TIME FROM "'SETTLEDOWN’ UNTIL "TU READY’ IS "'SETTLEDOWN'’. 


WRITE TO ERASE HEAD 


THE PURPOSE OF THE ERASE HEAD IS TO INSURE THAT THE TAPE IS IN 
THE SAME FLUX STATE AS THE WRITE HEADS. THIS IS NECESSARY FOR 
SEVERAL REASONS. 


1. START/STOP CHARACTERISTICS VARY AMONG TAPE UNITS AND IT 
WOULD BE ‘wer TO LEAVE OLD DATA IN THE INTERRECORD GAPS 
— USING A TAPE ON MORE THAN ONE UNIT. 

A TAPE PREVIOUSLY USED AT ONE RECORDING DENSITY COULD NOT BE 
USED LATER AT ANOTHER DENSITY. 
TRACK ALIGNMENT AND HEAD WIDTH VARY FROM TAPE UNIT TO 
TAPE UNIT AND IT WOULD BE POSSIBLE FOR DATA TO BE LEFT ON 
THE TRACK EDGES FROM OLD RECORDS. 


SEQ 0008 
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THE "WRITE TO ERASE HEAD'' TEST INSURES THAT THE TAPE IN FRONT OF 
THE WRITE HEAD IS ERASED DURING A WRITE OPERATION. 


PROCEDURE TO MEASURE TIME: 


A LONG RECORD HAS BEEN WRITTEN FROM BOT. SAME RECORD THAT 
WAS USED TO TIME ‘WRITE FROM BOT DELAY’. 

TAPE IS REWOUND TO BOT. 

BYTE RECORD COUNTER IS INITIALIZED FOR A 3 BYTE RECORD 
AND CURRENT MEMORY ADDRESS REGISTER IS INITIALIZED. 
ISSUE WRITE FUNCTION, 800 BPI, SET ‘'GO"’. 

AWAIT CUR AT END OF CURRENT WRITE. 

ISSUE A 2 BYTE READ. 

TIME FROM GO UNTIL CUR OF THE READ IS WRITE TO 

ERASE HEAD TIME. 

IF TIME IS TOO SHORT, ERASE HEAD IS INOPERATIVE. 


= a mmo Ow cao 
a . . . . oe . 
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BACKSPACE SHUTDOWN 


“BACKSPACE SHUTDOWN'’ IS THE LENGTH OF TIME NECESSARY TO GUARANTEE 
THAT IF A WRITE OPERATION FOLLOWS A BACKSPACE THE TAPE WILL BE 
POSITIONED SUCH THAT ALL PREVIOUS DATA IS IN FRONT OF THE WRITE 
AND ERASE HEADS AND WILL BE ERASED. ‘‘BACKSPACE SHUTDOWN*’ MUST 

BE LESS THAN "WRITE START’’ SO THAT INTERRECORD GAPS WILL INCREASE 
IF A BACKSPACE/REWRITE OPERATION IS INITIATED. 


PROCEDURE TO MEASURE TIME: 


ae Ht BYTE RECORD COUNTER AND CURRENT MEMORY ADDRESS 
ISSUE WRITE EOF FUNCTION, 800 BPI, SET ‘'GO"' 
AFTER EOF RECORD IS WRITTEN WAIT FOR "TU READY". 
SET BYTE RECORD COUNTER TO BACKSPACE 1 RECORD. 
ISSUE BACKSPACE FUNCTION, SET ‘’GO"’. 
AFTER “‘EOF’’ BECOMES A 1, INDICATING THE RECOGNITION OF 
THE EOF’ RECORD, MONITOR "‘SETTLEDOWN’ UNTIL IT BECOMES A 1. 
a Rh FROM ‘EOF’ UNTIL ‘"SETTLEDOWN'’ IS ‘‘BACKSPACE 
ld -" 


READ SHUTDOWN 


READ SHUTDOWN IS THE AMOUNT OF TIME NECESSARY TO CONTINUE MOVING 

TAPE AFTER A RECORD IS READ SO THAT THERE IS ENOUGH GAP FOR TAPE 

TO BE FULLY ACCELERATED IF A READ IS FOLLOWED BY A BACKSPACE. 

“READ SHUTDOWN’ MUST ALSO BE LESS THAN ‘WRITE SHUTDOWN"’ TO 

GUARANTEE THAT THE WRITE AND ERASE HEADS WILL BE POSITIONED 

SUCH THAT ALL PREVIOUS DATA IS IN FRONT OF THE HEADS AND 

WILL BE ERASED IF A WRITE FOLLOWS A READ. IN ADDITION, WHEN A 

ep Agee: A READ THE INTERRECORD GAP MUST STILL BE AT LEAST 
N H. 


PROCEDURE TO MEASURE TIME: 


RECORD PREVIOUSLY USED IN ‘BACKSPACE SHUTDOWN'’ IS READ. 
jan tt te BYTE RECORD COUNTER AND CURRENT MEMORY ADDRESS 
ISSUE READ FUNCTION, 800 BPI, SET ‘'GO"’. 

AFTER “EOF** BECOMES A 1, INDICATING THE END OF THE 
RECORD, MONITOR ‘SETTLEDOWN’’ UNTIL IT BECOMES A 1. 

THE TIME FROM “EOF’’ UNTIL “‘SETTLEDOWN’’ IS ‘READ 
SHUTDOWN"’ 
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GAP CONSISTENCY 


FOR PROPER OPERATION, THE INTERRECORD GAPS ON TAPE MUST ALWAYS 

BE AT LEAST 1/2 OF AN INCH. THIS WILL ALLOW DATA WRITTEN USING 
ONE TAPE UNIT TO BE READ ON ANOTHER TAPE UNIT WHEN THE START/STOP 
CHARACTERISTICS OF EACH UNIT ARE DIFFERENT. THE MINIMUM 

GAP SIZE OF 1/2 INCH IS GENERATED WHEN A WRITE FOLLOWS A READ. 
sities. GAPS SHOULD BE LARGER DEPENDING ON HOW THEY WERE 


PROCEDURE TO MEASURE TIME: 


A. A TOTAL OF NINE RECORDS ARE WRITTEN ON TAPE (FROM BOT) 
UTILIZING DIFFERENT SEQUENCES TO GENERATE THE INTERRECORD GAPS. 
- THE TAPE IS REWOUND TO BOT. 
° hy bh ot BYTE RECORD COUNTER AND CURRENT MEMORY ADDRESS 


B 
C 
D. ISSUE READ FUNCTION, 800 BPI, SET ‘'GO"’. 

E. WAIT FOR CU READY’ TO BECOME A 1, THEN REPEAT STEP C AND 

RESET ‘'GO"' TO CONTINUE. 

F. een CURRENT MEMORY ADDRESS TO DETERMINE WHEN 2ND BYTE IS 
G 
H 


THE TIME FROM WHEN ‘'GO'' IS RESET UNTIL THE 2ND BYTE IS INPUT 

WILL vy THE SIZE OF THE GAP. 

STEPS E, F ARE REPEATED UNTIL ALL 8 GAPS ARE MEASURED. 
PROGRAM SEQUENCE FOR EACH GAP: 


GAP 1 WRITE FOLLOWED BY A WRITE (START/STOP). 


GAP 2 WRITE FOLLOWED BY A WRITE (START/STOP). 

GAP 3 READ FOLLOWED BY A WRITE (START/STOP). 

GAP 4 WRITE-BACKSPACE FOLLOWED BY A WRITE (START/STOP). 

GAP 5 SAME AS GAP 4 EXCEPT WRITE-BACKSPACE REPEATED 2 
TIMES. 

GAP 6 SAME AS GAP 4 EXCEPT WRITE-BACKSPACE REPEATED 3 
TIMES. 

GAP 7 a AS GAP 4 EXCEPT WRITE-BACKSPACE REPEATED 4 

GAP 8 rm Bang GAP 4 EXCEPT WRITE-BACKSPACE REPEATED 5 


GAP LENGTHS SHOULD REFLECT THE FOLLOWING RELATIONSHIP: 
8>7>6>5>4>3, 3=2=1 (+0R- 5.0). 
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WRITE START 


THIS IS A REPEAT OF THE “WRITE START’’ TEST PREVIOUSLY COMPLETED 
(REFERENCE 9.3). IT'S PURPOSE IS TO DETERMINE IF TAPE WILL 
DRIFT BACKWARDS TO BOT IF A ‘POWER CLEAR" IS ISSUED AS SOON 

AS BOT DISAPPEARS WHEN MOVING FORWARD FROM BOT. TIME SHOULD 
EQUAL “WRITE START’’ AS MEASURED IN 9.3. 


WRITE XIRG 


WRITE WITH AN EXTENDED INTERRECORD GAP IS A FUNCTION THAT CAUSES 
THE GENERATION OF AN INTERRECORD GAP THAT IS AT LEAST 3 INCHS LONG 
AS COMPARED WITH THE NORMAL 3/4 INCH GAP. THE PURPOSE IS TO 
ELIMINATE WRITE ERRORS THAT MAY BE CAUSED BY A DEFECTIVE AREA 

ON TAPE. NORMALLY ONE REWRITE WITH XIRG WOULD BE SUFFICIENT TO 
MOVE PAST THE BAD SPOT, HOWEVER IF IT ISN'T, THE PROCEDURE 

WOULD BE TO REPEAT THE ‘‘BACKSPACE-REWRITE WITH XIRG'’ SEQUENCE UNTIL 
A RECORD IS WRITTEN WITHOUT ERRORS. EACH SUCCESSIVE REWRITE WOULD 
ADD 3 INCHES TO THE INTERRECORD GAP UNTIL ‘GOOD’ TAPE WAS REACHED. 


PROCEDURE TO MEASURE TIME: 
TAPE IS NOT AT BOT 


my Ht BYTE RECORD COUNTER AND CURRENT MEMORY ADDRESS 


TER 
ISSUE WRITE WITH XIRG FUNCTION, 800 BPI, SET ‘'GO"’. 
MONITOR CURRENT MEMORY ADDRESS REGISTER TO DETERMINE WHEN 
2ND BYTE IS OUTPUT. 
ne FROM ‘’GO"’ UNIT 2ND BYTE IS OUTPUT IS "WRITE WITH 


READ FROM BOT 


THE FIRST RECORD WRITTEN ON TAPE IS SUPPOSED TO BE AT LEAST 6 
INCHES FROM THE BOT MARKER. IN THE EVENT THAT THIS CONDITION 
WASN'T MET IT IS STILL DESIREABLE TO READ THE RECORD. READ FROM 
BOT IS THE TIME FROM WHEN A READ FUNCTION IS ISSUED UNTIL THE 
2ND BYTE IS INPUT. 


PROCEDURE TO MEASURE TIME: 


THE RECORD THAT WAS WRITTEN JUST OFF BOT DURING ‘WRITE 
START’ (REFERENCE 9.10) IS USED. 

TAPE IS REWOUND TO BOT 

for at BYTE RECORD COUNTER AND CURRENT MEMORY ADDRESS 


ISSUE READ FUNCTION, 800 BPI, SET ‘'GO’’. 

MONITOR CURRENT MEMORY ADDRESS REGISTER TO DETERMINE WHEN 
2ND BYTE IS INPUT. 

aaa TIME FROM "GO" UNTIL 2ND BYTE IS INPUT IS "READ FROM 
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WRITE EOF. 


TO WRITE AN END OF FILE MARK IT IS NECESSARY FOR TAPE TO 

MOVE 3 INCHES BEFORE WRITING. IN THAT RESPECT IT IS SIMILAR 
TO WRITING A RECORD WITH EXTENDED INTERRECORD GAP, HOWEVER, AN 
EOF MARK CORRESPONDS TO A 1 BYTE RECORD. THE TIME SHOULD BE 
SLIGHTLY LARGER THAN “WRITE XIRG"’. 


PROCEDURE TO MEASURE TIME: 
A. TAPE UNIT IS REWOUND TO BOT. 


B. INITIALIZE BYTE RECORD COUNTER AND : MEMORY ADDRESS REGISTER. 


C. ISSUE WRITE FUNCTION, 800 BPI, SET 

D. WAIT FOR "CU READY” AND THEN “TU READY"* TO BECOME A 1. 
E. ISSUE WRITE EOF FUNCTION, 800 BPI, SET ‘'GO"’. 

F. WAIT FOR "CU READY” TO BECOME A 1. 

G. THE TIME FROM GO" UNTIL "CU READY IS “WRITE EOF". 


EOR TO EOF SPACE TIME 


EOR TO EOF SPACE TIME IS THE TIME NEEDED TO MOVE TAPE FROM THE 

END OF A RECORD TO AN END OF FILE MARK WRITTEN AFTER IT. THE 
PROCEDURE USED TURNS OUT TO BE A TEST OF THE WRITE AND ERASE HEAD 
POLARITIES. IF THE TIME PRINTED IS EQUAL TO ZERO IT IS AN INDICA- 
TION THAT THE EOF WAS NOT FOUND WHEN “CU READY*’ BECAME A 1. 


THIS COULD INDICATE ONE OR MORE OF THE FOLLOWING PROBLEMS: 


1. ERASE HEAD POLARITY REVERSED. 

2. ERASE HEAD CURRENT NOT SUFFICIENT TO FULLY SATURATE TAPE. 

3. ONE OR MORE OF WRITE HEAD TRACKS POLARITY REVERSED. 

4. ONE OR MORE SENSITIVE READ AMPLIFIERS. 

5. WRITE EOF FUNCTION DIDN'T REALLY WRITE AN EOF MARK. 
OTHERWISE ‘EOR {0 EOF SPACE TIME’ SHOULD BE SLIGHTLY LARGER 
THAN “WRITE EOF’ 


PROCEDURE TO MEASURE TIME: 


A. A RECORD AND EOF WAS PREVIOUSLY WRITTEN FROM BOT FOR ‘WRITE 
EOF’ (REFERENCE 9.12). 

TAPE IS REWOUND TO BOT. 

- REWRITE RECORD OVER PREVIOUSLY WRITTEN RECORD. 

- BACKSPACE OVER RECORD JUST WRITTEN 

- SET BYTE RECORD COUNTER TO SPACE 2. RECORDS. 

- ISSUE SPACE FORWARD FUNCTION, SET ‘’GO"’. 

WAIT FOR BYTE RECORD COUNTER TO INDICATE THAT 1ST RECORD 

HAS BEEN SPACED OVER THEN MONITOR ‘’CU READY’ UNTIL IT BECOMES 
A 1. AFTER "CU READY’’ CHECK TO SEE IF ‘EOF’ IS A 1 

IN STATUS REGISTER. IF ‘EOF’ NOT SET THEN ZERO TIME COUNTER, 
H. TIME FROM os — COUNTER =-1 UNTIL ‘'CU READY’ IS “EOR 

TO EOF SPACE TIME" 


SEQ 0013 
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SPACE SHUTDOWN 

SPACE SHUTDOWN IS THE AMOUNT OF TIME NECESSARY TO 

CONTINUE MOVING TAPE AFTER A RECORD IS SPACED OVER IN THE 
FORWARD DIRECTION FOR THE SAME REASONS AS ‘'READ SHUTDOWN" . 


PROCEDURE TO MEASURE TIME: 


A. 
B. 
- 


i pee FUNCTION USED TO TIME ‘‘EOR TO EOF SPACE TIME"' 


I 

AFTER “‘EOF** BECOMES A 1, INDICATING THE END OF THE 
RECORD (EOF), MONITOR ‘“SETTLEDOWN'’ UNTIL IT BECOMES A 1. 
THE TIRE, FROM EOF’ UNTIL "‘SETTLEDOWN'' IS ‘’SPACE 


ONE INCH DATA TIME 


ONE INCH OF DATA, 800 BPI IS WRITTEN AND TIMED 
TO DETERMINE IF DATA IS TRANSFERRED AT PROPER RATE. 


PROCEDURE TO MEASURE TIME: 


A. 
B. 
- 


INITIALIZE BYTE RECORD COUNTER AND CURRENT MEMORY ADDRESS. 
ISSUE WRITE FUNCTION, 800 BPI, SET ‘'GO"’. 

WAIT FOR CURRENT MEMORY ADDRESS REGISTER TO INDICATE 2ND 
BYTE IS OUTPUT AND THEN MONITOR BYTE RECORD COUNTER UNTIL 
EQUAL TO ZERO. 


TIME FROM 2ND BYTE OUTPUT UNTIL BYTE RECORD COUNTER = 0 
IS "ONE INCH DATA TIME" 


TAPE SPEED TEST (FORWARD ONLY) 


ONE INCH OF TAPE (800 BYTES) IS READ FROM A SKEW TAPE IN 
THE FORWARD DIRECTION TO ASSURE TAPE SPEED. 


A. 
B. 
C. 
D. 


ASSURE OPERATOR MOUNTS SKEW TAPE 

ISSUE READ FUNCTION, 800 BPI, SET ‘'GO"’. 

AWAIT 2ND BYTE TRANSFER. 

TIME FROM 2ND BYTE UNTIL LAST BYTE IS ONE INCH OF TAPE 
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SEQ 0015 


STATUS AND COMMAND REGISTER BIT ASSIGNMENTS (TMA-11) 


COMMAND REGISTER 
ERROR 


DEN 8 00 = 200 BPI 
DEN 5 556 BPI 
POWER CLEAR 


PARITY 0 = ODD 
UNIT SEL. BIT 2 
UNIT SEL. BIT 1 


UNIT SEL. BIT 0 
CONTROL UNIT READY 
INTERRUPT ENABLE 


ADDRESS BIT 17 
ADDRESS BIT 16 
FUNCTION BIT 


2 
FUNCTION BIT 1 
+ es BIT 0 


OFF LINE 
READ 
WRITE 
WRITE EOF 


STATUS REGISTER 
ILLEGAL COMMAND (ILC) 


END OF FILE (EOF) 
CYCLICAL REDUNDANCY ERROR (CRE) 
PARITY ERROR (PAE) 


BUS GRANT LATE (BGL) 
END OF TAPE (EOT) 
RECORD LENGTH ERROR (RLE) 


BAD TAPE ERROR (BTE) 
NON EXISTENT MEMORY (NXM) 
SELECT REMOTE (SELR) 


BEGINNING OF TAPE (BOT) 
7 CHANNEL (7CH) 
SETTLE DOWN (SDWN) 


WRITE LOCK (WRL) 
REWIND STATUS (RWS) 
TAPE UNIT READY (TUR) 


800 BPI 7 TRACK 
800 BPI 9 TRACK 


SPACE FORWARD 
SPACE REVERSE 
WRITE XIRG 
REWIND 
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-TITLE CZTSEBO TSO3 DR FCTN TAR 
sCOPYRIGHT: (C) 1975,1978 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


[LOAD ADDRESS 200, PRESS START 
STACK=1000 

BLENTH=3000. 

-ENABL ABS. AMA 


[TRAP CATCHER FROM 0 TO 1000 


SEQ 0016 





E 2 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 18 SEQ 0017 


CZTSEB.P11 


000040 


000041 


000042 


000046 


000052 


16-FEB-78 11:08 


IRR BARRRRRRASAARSAARARAAASAAAASAAAAASASAALARS ESAS ESAS ARAL SSAA SRSA S SS 


MODIFIED JAN 23 1978 
ACT11 AND XXDP HOOKS 


001000 SSVPC=. sSAVE PC 


000040 .=40 
000 -BYTE ;DRIVE # FOR XXDP LOAD MEDIUM 
sASSEMBLE AS A 0 


000041 -=41 
000 MEDIUM: .BYTE :XXDP LOAD MEDIUM 
sASSEMBLE AS A 0 


000042 -=42 
000000 - WORD ;AUTO/MAN MODE INDICATOR 
sASSEMBLE AS A 0 


000046 246 
006232 «WORD SENDAD ;SET TO SENDAD IN .SEOP 


000052 -=52 
000000 . WORD ; CHARACTERISTICS OF PROGRAM 


sASSEMBLE AS A 0 
001000 - =SSVPC sRESTORE PC 


IRR RRBRARRRRRRRARARRARRRASARRSAARARARRESALAS ESSER RARER ERR R RARER ESS SE SS | 





Ci 
Ci 


CZTSEBO TSO3 DR FCTN TMR 


CZTSEB.P11 16-FEB-78 11:08 


001000 000000 
001002 000 
001003 
001004 
001005 


. ¢ 
MACY11 30A(1052) 16-FEB-78 11:10 PAGE 19 


PARRA RRRAARARRAARAARARARASARRARARAARASARASARAASASAS AAAS EARS RRR A RAS SS 


MODIFIED JAN 23 1978 


++ 
ACT11 AND XXDP MODE INDICATORS 


AUTOM: .WORD ;AUTOMATIC MODE INDICATOR 
ACTIIM: .BYTE ;ACT11 AUTO MODE INDICATOR 
XXDPM: .BYTE :XXDP AUTO MODE INDICATOR 
ADUMPM: .BYTE ;ACT11 DUMP MODE INDICATOR 
XDUMPM: .BYTE :XXDP DUMP MODE INDICATOR 


(RR RBRARARARRRRRARRARAASARARLARASARASASELELESER RSS ERS SSSR RS AR SSSR SS SD 


SEQ 0018 





CZTSEBO TSO3 DR FCTN TMR 
CZTSEB.P11 16-FEB-78 11:08 


000200 
000200 4 001062 
001000 


001060 000000 


MACY11 30A(1052) 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


16-FEB-78 


START 


G 2 
11:10 PAGE 20 


SEQ 0019 





aon 


CZTSEBO TSO3 DR FCTN TMR 


CZTSEB.P11 


001062 
001066 


16-FEB-78 11:08 


012706 


042777 
053777 


001000 


001002 
011072 


000006 


011271 


001054 
011325 


000100 
000200 
000400 
000100 
000100 
000002 
000010 


006200 


001060 


MACY11 30A(1052) 


177736 


010070 
010070 


010070 


010070 


177460 
177452 
177442 


006372 
177426 
177416 


006372 
001056 
001056 
001060 


177346 
177340 


START: 


STRS: 


STO: 


STOA: 


SACT: 


18: 


H 2 
16-FEB-78 11:10 PAGE 21 SEQ 0020 


#STACK , 26 
#340,aCC 
PC ,CKMODE 
ACT11M 


STO 
oo tae” »MESAGE 
#MSG31,MESAGE 
%7,TOP 
#REGS 25 

1 


#6, 
#172700,%2 
#172300,23 


$T0 
ig -MESAGE 
#TEMP1,25 


#1,%2 
#0,23 
PC,TTR 
DRIVES 
oa 


ST 

#200 DRIVES 
#400, amTC 
#100,amTS 
STOB 

#100 DRIVES 
#2,UDES 
#10,UDES 

1$ 


113 
UDES, TEMPO 
TEMPO 


#3400, amTC 
TEMPO ,amTC 


INITIALIZE STACK 

SET PRIORITY LEVEL 7 

s;CHECK FOR MODE OF OPERATION ++ C.W 
sACT MODE? ++ C.W 

BRANCH = IF YES ++ C.W 


;PRINT TITLE 


REQUEST UNIBUS ADDRESS 
:GET ADDRESS OF RESPONSE 
SET SIZE OF ENTRY 

7SET UPPER LIMIT 

SET LOWER LIMIT 

:GO GET RESPONSE 

GET UNIBUS ADDRESS 
;SET START OF TABLE 
SET SIZE OF TABLE 
;LOAD TABLE 

;BUMP ADDRESS 

SEE IF DONE 

:1F NOT: BR 


sREQUEST SPEED TESTS ONLY 
CLEAN SPEED TEST FLAG 

GET FLAG ADDRESS 

SET SIZE OF ENTRY 

:SET UPPER LIMIT 

SET LOWER LIMIT 

:GO GET RESPONSE 

SEE IF SHOULD DO SPEED TEST 
IF NOT: BR 


sREQUEST SKEW TAPE MOUNT 
SET RESPONSE ADDRESS 
SET SIZE 

SET UPPER 

SET LOWER 

;AWAIT SKEW TAPE MOUNT 


;POWER CLEAR 
;SELECT UNIT 0 
SEE IF 0 IS THERE 
:1F NOT: BR 
SET 0 IN AVAILABLE TABLE 
SELECT UNIT 1 
; SEE IF 1 IS THERE 
NOT: BR 


:SET 1 =IN AVAILABLE TABLE 
3GET UNIT 2 ++ C.W 

zALL UNITS DONE ++ C.W 
[BRANCH - IF NO ## C.W 

:G0 DO END OF PASS ++ C.W 
sSELECT UNIT ++ C.W 
sPOSITION UNIT +¢# C.W 
:CLEAR OLD NUMBER ++ C.W 
7SET NEW UNIT NUMBER ++ C.W 


on 


CZTSEBO TSO3 DR FCTN TMR 


CZTSEB.P11 
001442 


001560 


16-FEB-78 11:08 


032777 


000773 


000100 


001060 
006372 


001002 
000010 
001056 


011154 
007566 


006250 
006474 
006314 


006534 
006314 


a 
MACY11 30A(1052) 16-FEB-78 11:10 PAGE 22 SEQ 0021 


177330 
006372 


001056 


010070 


#100,amTS 
STOB 


TEMPO ,DRIVES 
RIVES 


1$ 

#10,UDES 

1$ 

UDES 

SACT 

#MSG30,MESAGE 
oP 


° 


STO 


%7,RSFORV 
%7,STRREW 
%7,CHGDRV 
$T1 


27, WATREW 
%7,CHGDRV 
ST2 


31S UNIT AVAILABLE ++ C.W 
;BRANCH = IF NO ++ C.W 

;SET AVAILABLE UNIT IN TABLE ++ C.W 
;SEE IF ANY UNITS AVAILABLE 
:1F SO: BR 

;ACT MODE? ++ C.W 

;BRANCH - IF NO ++ C.W 

zALL UNITS CHECKED? ++ C.W 
;BRANCH - IF YES +#+# C.W 
3GET NEXT UNIT ++ C.W 
sCONTINUE TEST ++ C.W 


;PRINT NO UNITS 
RETRY UNIT SELECTION 
RESET DRIVES 

START REWIND 

— ALL DRIVES? 


‘WAIT FOR BOT 
:DONE ALL DRIVES? 





CZTSEBO TSO3 DR FCTN TMR 


CZTSEB.P11 


001562 


001702 


16-FEB-78 11:08 


012737 


000137 


010115 


177162 


007310 
006314 


006454 
011126 
007566 
001054 


006032 


J 2 
MACY11 30A(1052) 16-FEB-78 11:10 PAGE 23 


010070 
010070 
007310 
007310 


177154 


010070 


PRINT HEADER 


ST3: 


#MSG2 ,MESAGE 
27,TOP 
#MSG2A,MESAGE 
%7,TOP 

FORIVE DIGIT 
DIGIT 
#177770,D1GIT 
#60,DIGIT 
aTPs 
74 
DIGIT, aTPB 
%7, CHGDRV 
$13 


%7,ST1S 
#MSG29 ,MESAGE 
<7, TOP 


SEQ 0022 


sPRINT ‘‘FUNCTION"’ 
;PRINT ‘UNIT’ 


sPRINT DRIVE ‘‘NUMBER'' 
;DONE ALL DRIVES? 


:NO 
STORE ONES IN WRITE BUFFER 


PRINT RANGE HEADER 

;SEE IF SPEED TESTS ONLY 
:1F NOT: BR 

sELSE DO SPEED TEST 





ono 


K 2 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 24 SEQ 0023 
CZTSEB.P11 16-FEB-78 11:08 


TIME WRITE FROM BOT DELAY, AND WRITE SHUTDOWN 


001706 012700 006610 TI: Tmt .20 s INITIALIZE TIME BUFFERS 
TIA: 17, WRINT 
177052 FDRIVE, aMTC ;SELECT DRIVE 
177044 #40005 .amTC 7800 BPI, WRITE, GO 


TIME 
011774 177036 : an ++ Bg WORD OUTPUT? 
3¥ 
006564 mee 3NO, COUNT TIME 


006606 : TIME, (0)+ ;SAVE "WRITE FROM BOT DELAY’’ TIME 
006606 TIME 
177010 abc :SEE IF bey COUNT DONE 


74 :1F NOT: 
000010 176774 : “= iHAS SETTLEDOWN SET? 
006564 Ege NO, COUNT TIME 


006606 : TIME ,(1)+ sSAVE “WRITE SHUTDOWN’ TIME 
006314 —E apaaaaas ;DONE ALL DRIVES 


:NO 
177777 #-1,(0)+ > TERMINATE TIMES 
#-1,(1)+ ; TERMINATE TIMES 
010070 #MSG3,MESAGE 
#11, 20 


27, TYPTIM sPRINT “WRITE FROM BOT DELAY’ TIMES 
010070 #RMSG1 ,MESAGE 
7, TOP PRINT RANGE 


z7, 

010070 #MSG4 ,MESAGE 
#TM2,20 
27, TYPTIM sPRINT “WRITE SHUTDOWN'’ TIMES 


010070 #RMSG2 ,MESAGE 
002112 004737 007566 %7,TOP PRINT RANGE 





ano 


phe a DR FCTN TAR 
CZTSEB 


002116 


002334 


16-FEB-78 11:08 


004737 


004737 


006250 


011774 
006564 
006606 
006606 
176574 
000010 
176552 
006564 


006606 
006314 


177777 


007566 


MACY11 


176636 
176630 


176622 


176560 


010070 


010070 
010070 


010070 


30A(1052) 16-FEB-78 


e | 
11:10 PAGE 25 


SEQ 0024 


TIME WRITE START AND SETTLEDOWN DELAY 


T2: 27, RSFORV 
#Th1,20 
#TA2,2%1 
27, WRINT 
FORIVE ,aMTc 
#40005 ,amTC 
TIME 
#WBUF+2,aCA 
T2c 
27, TIMER 
T2B 
TIME, (0)+ 
TIME 
abc 
a 
ants 
T2E 
27, TIMER 
T2D 
TIME, (1)+ 
217, CHGDRV 
T2A 
#-1,(0)+ 
#-1,(1)+ 
#nscs, MESAGE 
#TMi ,20 
27, TYPTIM 
#RASG3,MESAGE 
27,TOP 
#MSG6,MESAGE 

TM2,20 
27, TYPTIM 
#RMSG4 ,MESAGE 
%7, TOP 


sRESET DRIVE SELECTION 


;SELECT DRIVE 
:800 BPI, 


WRITE, GO 
ae WORD OUTPUT 
:NO, COUNT TIME 


sSAVE "WRITE START’ TIME 


;WAIT FOR SETTLEDOWN TO SET 
WAIT FOR TU READY 


7 SAVE “‘SETTLEDOWN’’ TIME 


TERMINATE TIMES 
; TERMINATE TIMES 


sPRINT “WRITE START’ TIMES 


sPRINT ""SETTLEDOWN’’ TIMES 





On 


Mm 2 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 26 SEQ 0025 
CZTSEB.P11 16-FEB-78 11:08 


;TIME WRITE TO ERASE HEAD 

;LONG RECORD WAS PREVIOUSLY WRITTEN 
sWRITE A 3 BYTE RECORD AND POWER CLEAR 
s;DISTANCE FROM NEW DATA TO OLD IS 
ERASE HEAD DISTANCE 


002340 004737 006474 T3: 27, STRREW START REWIND 
006314 eae :DONE ALL DRIVES? 


3NO 
006534 T3A: 27, WATREW 31S DRIVE AT BOT? 
006314 nen <i. ALL DRIVES 


T3A ; 
177775 176412 : #-3,aB8C 33 BYTE RECORD 
176406 #WBUF ,aCA : INITIALIZE CURRENT ADDRESS 
176374 FORIVE ,aMTc :SELECT DRIVE 
176366 #40005 ,amTc ;800BPI1, WRITE, GO 
176362 anTc 
AWAIT CUR 


.=4 
006314 £7, CHGDRV DONE ALL DRIVES 
002426 000756 138 :NO 


:NOW READ OVER PARTIAL RECORD 


002430 012700 006610 #71 ,20 
002434 176342 13D: #-2,aBC 
176336 #WBUF ,aCA 
176324 FORIVE ,amTc SELECT DRIVE 
176316 #40003, amTC frre READ, GO 
ME CLEAR TIME 
176310 : sWAlT FOR NEXT WORD IN 


T3F HAVE IT 
006564 NO. COUNT TIME 
T3E 


006606 : TIME, (0)+ :SAVE “WRITE TO ERASE HEAD TIME"' 
176266 antc SEE IF CUR 

74 AWAIT CUR 
006314 coe DONE ALL DRIVES 


iN 
177777 #-1,(0)+ TERMINATE TIMES 
010070 #MSG7,MESAGE 
TH1, £0 


& 
27, TYPTIM sPRINT “WRITE TO ERASE HEAD TIMES" 
010070 aRASGS ME SAGE 


27, STRREW START REWIND 
006314 ie . CHGDRV DONE ALL DRIVES 


T3G NO 
006534 : 27, WATREW ;DRIVE AT BOT 
006314 27, CHGDRV ;DONE ALL DRIVES 
002602 000773 T3H NO 





Oo 


N 2 
CZTSEBO TSO3 DR FCTN TAR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 27 SEQ 0026 
CZTSEB.P11 16-FEB-78 11:08 


TIME WRITE NONSTOP GAP, BACKSPACE SHUTDOWN AND READ SHUTDOWN 
WRITE ONE RECORD, FOLLOW WITH ONE RECORD NONSTOP 

sFOLLOWED BY ONE RECORD START-STOP 

sFOLLOWED BY WRITE-BACKSPACE-READ-WRITE 

sFOLLOWED BY WRITE-BACKSPACE-WRITE 


002604 004737 006454 T4: %7,ST1S 
INITIALIZE TIME BUFFERS 


176140 ; TRACK AND DRIVE NUMBERS 
176132 #40005 ,anTCc :800 BPI, WRITE, GO 
176126 anTc 
002654 100375 74 WAIT FOR CU READY 


RECORD WRITTEN, GO NONSTOP 


002656 004737 006436 27,WRINT 
176114 anTc :G0 
011774 176112 T4A: oo :1S 2ND WORD OUTPUT? 


7 YES 
006564 Eco 3NO, COUNT TIME 


006606 : TIME, (0)+ sSAVE "WRITE NONSTOP GAP*’ TIME 
006606 TIME 
176062 
WAIT FOR CU READY 
176052 


002726 103375 ;WAIT FOR TU READY 
7 WRITE-BACKSPACE-READ-WRITE 


002730 004737 006436 27, WRINT 
006374 176040 FORIVE ,aMTc DRIVE SELECT 
040007 176032 + ya el 3800 BPI, WRITE EOF, GO 


176026 

. WAIT FOR CU READY 
177777 +=176020 :BACKSPACE 1 RECORD 
000016 176010 
000013 176002 #13,amTC SPACE REVERSE, GO 


N 
040000 175770 #40000, amTS SEE IF EOF 
B T4BA :1F NOT: BR 


000010 175754 8 + aa +n SETTLEDOWN SET? 
3¥ 

006564 lei :NO, COUNT TIME 

175740 : ants 


74 
TIME, (1)¢ :SAVE “‘BACKSPACE SHUTDOWN’ TIME 
im 


sWAIT FOR TU READY 


003052 005037 006606 





CZTSEBO TSOS DOR FCTN TAR 


CZTSEB.P11 
003056 


003360 


16-FEB-78 11:08 


013777 


000240 


006374 
040003 
040000 
000010 
006564 
175654 


006606 
006314 


177777 


006314 
006534 
006314 
006436 
175470 


006436 
175454 
175450 


006436 
175436 
175432 


006314 


MACY11 30A(1052) 


175716 
175710 
175700 


175670 


010070 


010070 
010070 


010070 


175502 
175474 


T4DA: 


T4E: 


16-FEB-78 


FORIVE ,@mMTCc 
#40003, amTC 
#40000 ,amTS 
T4DA 
#10,amTS 
T4F 
47, TIMER 
T4E 
ants 

4 


TIME, (2)+ 
27, CHGDRV 
TGAA 


#nsc9, MESAGE 
#Th2, £0 
27, TYPTIM 


#RMSG6 ,MESAGE 

%7,TOP 

#MSG10,MESAGE 
TM3, 20 


#TM5, 
27, TYPTIM 


#RMSG7,MESAGE 
%7,TOP 


z7,ST1S 
27, STRREW 
27. CHGDRV 
T4FA 


27,WATREW 
%7,CHGDRV 
T4FB 


27, WRINT 
FORIVE ,amTc 
#40005, amTc 
ay 


27,WRINT 
TC 


74 
27, CHGDRV 
TFC 


8B 3 
11:10 PAGE 28 


SEQ 0027 
SELECT DRIVE 
3800 BPI, READ, GO 


sAWAIT EOF 
sHAS SETTLEDOWN SET? 


YES 
NO, COUNT TIME 


sWAIT FOR TU READY 
;SAVE “'READ SHUTDOWN’ TIME 


TERMINATE TIMES 
TERMINATE TIMES 
TERMINATE TIMES 


sPRINT "‘BACKSPACE SHUTDOWN"’ TIMES 


;PRINT "READ SHUTDOWN"' TIMES 


START REWIND 
: CHANGE DRIVE 


:AWAIT BOT 
CHANGE DRIVE 


SET UP FOR WRITE 
SET DRIVE NUMBER 
:SET 800 BPI, WRITE, GO 


AWAIT CUR 


SET UP FOR NEXT WRITE 
SET GO 


AWAIT CUR 
;SET UP FOR NEXT WRITE 
SET GO 


AWAIT CUR 
CHANGE DRIVE 





¢ 3 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 29 SEQ 0028 
CZTSEB.P11 16-FEB-78 11:08 
;WRITE RECORDS TO BE USED IN GAP TEST 
004737 006436 T4G: %7,WRINT 
006374 175406 FORIVE ,amTc SELECT DRIVE 
040005 175400 #40005, amTC :800 BPI, WRITE, GO 
175374 anTc 
74 WAIT FOR CU READY 
006436 27,WRINT 
175362 TC sWRITE NEXT 
WAIT FOR CU READY 


175356 

177777 
FORIVE ,aMTc >SELECT DRIVE 
ns 3800 BPI, BACKSPACE, GO 


WAIT FOR CU READY 


175326 
006436 


175312 
175304 9 :800 BPI, WRITE, GO 


175300 


177777 +=001036 ; INDICATES BACK 3 COMPLETE 

177777 + 001040 ; INDICATES BACK 4 COMPLETE 

177777 +=001042 . ; INDICATES BACK 5 COMPLETE 
003526 012737 177776 001034 #-2,R10 sFIRST SEQUENCE BACK 2 TIMES 





on 


dD 3 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 30 SEQ 0029 
CZTSEB.P11 16-FEB-78 11:08 


NOW WRITE, BACKSPACE, WRITE, BACKSPACE, WRITE 
GAP SHOULD GET LARGER 


003534 004737 006436 MULWRT: JSR 27, WRINT 
175236 INC antc :GO NONSTOP 


175232 

B . WAIT FOR DONE 
177777 «175224 MULBAK: sBACKSPACE 1 RECORD 
000016 175214 B 
000013 175206 SET BACKSPACE, GO 


175202 
WAIT FOR BACKSPACE DONE 
006436 166 


175 
175160 :SET WRITE, GO 
175154 
. :WAIT FOR WRITE DONE 

001034 1 sBACKSPACED ENOUGH TIMES? 

[NO BACKSPACE AND WRITE AGAIN 
001036 11 : DONE 3 BACKSPACE SEQUENCES? 
177775 001034 " ‘ 
001040 1 : DONE 4 BACKSPACE SEQUENCES? 

:Y 


177774 001034 ; 


B 
001042 . Athy 5 BACKSPACE SEQUENCES? 


177773 001034 


175064 
74 WAIT FOR TU READY 
006474 27,STRREW START REWIND 
006314 27, CHGORV 
003726 000615 T4G 





ao 


; ? 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 31 SEQ 0030 
CZTSEB.P11 16-FEB-78 11:08 


;NOW READ NONSTOP 

;ACCUMULATE GAP TIMES ON READ 

; TYPE ACCUMULATED TIMES AT END OF READ 

;GAP1 SHOULD = GAP2, GAP3 <GAP1 AND GAP2 

;GAP4 THRU GAP&8 SHOULD GET INCREASINGLY LONGER 
003730 005037 001044 CLR TSORV 


003734 004737 006534 TS: 27, WATREW 
27, WRINT 
#TM1,20 
TSORV,20 
175020 FORIVE ,amTc SELECT DRIVE 
175012 #40003, anTC :800 BPI, READ, GO 
001034 j #-8.,R10 COUNT 8 GAPS 


175000 : anTc 

74 WAIT FOR CU READY 
006436 27, WRINT 
006606 TIME 
174762 amTc 3GO NONSTOP 
011774 174760 : + + alae 1S 2ND WORD OUTPUT 


7 YeES 
006564 ea, :NO, COUNT TIME 


006606 : TIME, (0)+ SAVE GAP TIME 

177777 0) > TERMINATE, JUST IN CASE AT END 
000022 ;STEP GAP POINTER 

001034 R10 ;DONE ALL 8 GAPS? 


174714 
74 WAIT FOR TU READY 
006474 27, STRREW START REWIND 
000002 001044 #2, TSORV #2 TO DRIVE TIME POINTER 
006314  Ceaaains 


000061 010523 #° 1, ASGIIA+6 
010070 #MSG11,MESAGE 


7, TOP 
010070 #ASG11A,MESAGE 
TH1,20 


27, TYPTIM ZPRINT "'GAP 1°' 
MSGI1A+6 
010070 #MSG11A,MESAGE 
TM2 20 


#TA2, 
27, TYPTIM sPRINT “GAP 2°° 
MSGIIA*6 
010070 #ASG11A,MESAGE 
™H3,20 


27, TYPTIM ;PRINT “'GAP 3°° 
MSG1IA+6 
010070 #"SG11A,MESAGE 
TM4 ,20 


27, TYPTIM ;PRINT "'GAP 4" 
MSG11A+6 
010070 #ASG11A,MESAGE 
#TM5,20 
007050 27, TYPTIM ;PRINT “'GAP 5° 


OWONAVUVSWN —OOONOUSWN—O0OOnN 


WwN— 


05 
06 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
30 
3 
3 
3 
34 
35 
36 


SERRE EW 
fwn-0o Oa@n 
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CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 32 SEQ 0031 
CZTSEB.P11 16-FEB-78 11:08 


004254 105237 010523 MSG11A+6 
010070 #MSG11A,MESAGE 
#TM6,%0 
27, TYPTIM sPRINT ‘GAP 6" 
MSG11A+6 
010070 #MSG11A,MESAGE 
#1M7,%0 
27, TYPTIM PRINT "'GAP 7° 
MSG11A+6 
010070 #ASG11A,MESAGE 
#TM8,2%0 


17, TYPTIM :PRINT "GAP 8" 
004342 004737 006454 %17,ST1S 


3 TIME WkITE START NOT AT BOT 


004346 012700 006610 T6: #TM1,20 
006634 #TM2,%1 
006436 T6A: 27, WRINT 
006374 174412 FORIVE ,a@mMTc SELECT DRIVE 
174406 TC 


174376 
. sWAIT FOR TU READY 
040005 174370 #40005 ,amTc 3800 BPI, WRITE, GO 
000040 174360 #40,amTS 
sWAIT FOR BOT TO CLEAR 


-76 
010000 174352 #10000, amTc ;POWER CLEAR 
174344 FORIVE ,amMTc 


174332 
WAIT FOR TU READY 
006606 


174320 FORIVE ,amTc SELECT ORIVE 
174312 #40005 ,amTc :800 BPI, WRITE, GO 
011774 174310 : #WBUF +2 ,aCA 1S 2ND WORD OUTPUT? 


T6C :YES 
006564 A aeas NO, COUNT TIME 


174266 : ants 
74 WAIT FOR TU READY 
006606 i ;SAVE "WRITE START’ TIME 


27, WRINT 
174244 FORIVE ,aMTc SELECT DRIVE 
174236 #40015, anTc :800 BPI, WRITE XIRG, GO 
011774 174234 : exer oa ate :1S 2ND WORD OUTPUT 


T YES 
006564 tees 7NO COUNT TIME 


174212 : ants 

274 sWAILT FOR TU READY 
006606 TIME, (1)+ ;SAVE “WRITE XIRG'’ TIME 
006474 27, STRREW 
006314 7 .CHGDRY 


=" 
GO CO 09 00 00 08 SI NI NN SI NS SINS AAAAAAAAOOUUM ¥ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


TN em a a ss a a ns a ss ss as ss Ss Ss 





aon 


G 3 
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012720 177777 #-1,(0)+ ; TERMINATE TIMES 
#-1,(1)+ ; TERMINATE TIMES 
010070 #MSG5,MESAGE 
#71, 20 


247, TYPTIM ;TYPE “WRITE START’ TIME 
010070 #RMSGB , ME SAGE 
%7,T0P 


010070 #MSG12, WESAGE 


27, TYPTIM sTYPE "WRITE XIRG'' TIME 
010070 aRhSc9. ME SAGE 


TOF : 27, WATREW 
006314 %7,CHGORV 
000773 T6F sWAIT FOR ALL DRIVES AT BOT. 
sNOW TIME “READ FROM BOT DELAY 
012700 006610 17: #TM1,20 
T7A: TIME 
27, WRINT 
174050 FORIVE ,aMTc ; SELECT DRIVE 
174042 #40003, amTC 7800 BPI, READ GO 
011774 174040 T7B: -+ *-pailaeantee 4 2ND WORD INPUT? 
YES 
006564 NL aaa ;NO COUNT TIME 
006606 : TIME, (0)+ 7SAVE “READ FROM BOT’ TIME 


174014 antc 
74 sWAIT FOR CU READY. 
006314 ae — ALL DRIVES? 


173776 : 


177777 (0) ; TERMINATE TIMES 
010070 


7, TYPTIM PRINT “"READ FROM BOT" TIME 
010070 #RMSG10,MESAGE 
%7,T0P 
27,ST1S 
;TIME ""LAST CHARACTER INPUT TO CU READY" 


18: #TM1,20 
TBA: a 


IME 
173714 FORIVE ,aMTc SELECT DRIVE 
173706 pean :800 BPI, READ, GO 


173704 
E ° WAIT FOR % WORD IN 
173674 : 1S CU READY? 


8C i YES 
006564 18 NO, COUNT TIME 
005116 006077 173656 
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005122 103375 274 sWAIT FOR TU READY 
006606 TIME, (0)+ ;SAVE “"LAST CHAR TO CU READY" TIME 
006474 %7,STRREW ;REWIND 
006314 o_o s ANYMORE DRIVES? 
g¥ 
177777 #-1,(0)+ ; TERMINATE TIMES 
006534 T8D: 27 ,WATREW 
006314 47, CHGDRV 
005156 000773 T8D 


sTIME “WRITE EOF’ 
;WRITE A 3 BYTE RECORD FROM BOT FOLLOWED BY AN EOF. 


005160 012700 006610 T9: #TM1,20 
T9A: TIME 
173606 #-3.,aBC sWRITE 3 BYTES 
#WBUF ,aCA 
FORIVE ,aMTc sSELECT DRIVE 
173562 #40005 ,amTc 3800 BPI, WRITE, GO 
173556 TC 


173546 


sWAIT FOR TU READY 
000016 173540 r6, amTc 
000007 173532 #7 ,aMTC WRITE EOF, GO 
173526 : anic i1S CU READY SET? 


T9C YES 
006564 NS ee NO, COUNT TIME 


006606 : TIME, (0)+ SAVE “WRITE EOF’’ TIME 
006474 27, STRREW REWIND 
006314 aaa : ANYMORE DRIVES? 


YES 
177777 #-1,(0)+ TERMINATE TIMES 
010070 #SG15,MESAGE 
#7120 
47, TYPTIM ;PRINT "WRITE EOF’ TIMES 
010070 aRASGI1 -MESAGE 


3 %7,WATREW 
006314 27, CHGDRV 
005346 000773 T9D 
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sTIME “EOR TO EOF SPACE TIME’, ‘SPACE SHUTDOWN'’ AND '‘ONE INCH DATA TIME"’. 
sWRITE A 3 BYTE RECORD OVER ONE PREVIOUSLY WRITTEN 

;AND THEN SPACE FORWARD 1 RECORD 

> TIME FROM GO UNTIL EOF IS REACHED 


005350 012700 006610 110: 


173406 :3 BYTE RECORD 
173402 #WBUF ,aCA 
173370 FORIVE ,aMTC :SELECT DRIVE 


173364 amTc 

74 sWAIT FOR CU READY 
177776) =173356 #-2,aBC SPACE FORWARD 2 RECORDS 
000016 173346 #16,amTC 
000011 173340 B #11,anTC SPACE FORWARD, GO 


177777 3=173334 : #-1,aBC 
B s;WAIT FOR 1ST RECORD TO BE SPACED OVER 


ad aod and a en ol els cad eat end 
WWNWWWWA WW WWWNWW 
OONAULE Wr — 


T108 
040000 173320 : #40000, amTS :1S EOF SET? 
B T10D 7 YES 
173314 antc 1S CU READY 
T10CC 7 YES 
006564 1 TIMER :NO, COUNT TIME 


B T10¢ 
040000 173274 : : nines. -@nTS sHAVE EOF 


:1S EOF SET? 
006606 C TIME ;NO, SET ERROR 
006606 : TIME, (0)+ :SAVE “EOR TO EOF SPACE TIME" 
006606 TIME 


000010 173242 2 49 ia i cas SET? 
s¥ 
006564 A aaa 7NO, COUNT TIME 


006606 : TIME, (1)+ ; SAVE 9 nea SHUTDOWN'* TIME 
173224 amTc SEE IF CUR 
74 IF NOT: BR 
176340 173216 #-800. ,aBC :1 INCH OF DATA 
173212 #WBUF ,@CA 


TIME 
173174 FORIVE ,a@mTc SELECT DRIVE 
173170 anTc WAIT FOR CU READY 


040008 173160 #40005,amTC —«-«; 800 BPI, WRITE, GO 
011774 173156 mupure2.ach 1S. nb ByTE oufPUT 


. 3NO 
173146 : aBc :YES IS LAST BYTE OUT 


T10H : 
006564 27, TIMER :NO, COUNT TIME 
000772 T10G 


005646 013722 006606 : TIME, (2)+ :SAVE ‘‘ONE INCH DATA TIME" 
005652 004737 006474 27, STRREW ; REWIND 
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CZTSEBO TSO3 DR FCTN TMR 


CZTSEB.P11 
005656 


006026 


16-FEB-78 11:08 


004737 


000137 


006314 
177777 


001002 


001056 
001400 
006200 


MACY11 30A(1052) 


010070 


010070 
010070 


010070 
010070 


010070 


77, CHGORV 
T10A 


1,(2)+ 
#SG16,MESAGE 
#71, 20 
47, TYPTIM 
#RMSG12,MESAGE 
7, TOP 


z7, 
#¥SG18,MESAGE 
#TM2,% i 


27,TYP 
FRASGIS. NE SAGE 
7, TOP 


& 

#SG20 , ME SAGE 
digg x0 

27,7 

FRASGIA. IMESAGE 
27, TOP 


ACTI1M 
1$ 
UDES 
SACT 
T13 


J 3 
16-FEB-78 11:10 PAGE 36 


—— DRIVES? 
iY 
; TERMINATE TIMES 


:PRINT “EOR TO EOF SPACE TIME"’ 
sPRINT “SPACE SHUTDOWN’ TIME 


;PRINT "‘ONE INCH DATA TIME" 


ACT MODE? ++ C.W 
BRANCH - IF NO ++ C.W 
GET NEXT UNIT ++ C.W 
:CONTINUE TEST ++ C.W 
:GO TO END OF TIMING 


SEQ 0035 


aon 


SPECIAL TAPE SPEED TEST USING 800 BPI SKEW TAPE 
READ FOWARD FROM BOT, MONITOR CA UNTIL IT EQUALS WBUF +2. 
TIME FROM WBUF+2 UNTIL BC=0 IS ONE INCH OF TAPE. 


006032 


006200 


000249 


012737 


006610 


172724 
176340 


011774 
172666 
006564 
006606 
006502 
006314 


177777 


011023 


172730 


172716 
172712 
172700 
172676 


010070 


010070 
010070 


#TM1,20 
TIME 

FORIVE ,amTc 
anTc 


274 

#-800. ,aBC 
#WBUF ,@CA 
#40003, amTC 
> ehenaenen 


abc 

T11C¢ 

27, TIMER 
7118 
TIME, (0)+ 


27,STRW 
ii 


#-1,(0)+ 

InSG21, ME SAGE 
aTAT 20 
27,TYP 

aniscl5, IMESAGE 


#MSG27,MESAGE 


INITIALIZE TIME 
SELECT DRIVE 


AWAIT CUR 

;800 BYTES =1 INCH OF DATA 
SET BUS ADDRESS 

LOAD 800 BPI READ AND GO 


sAWAIT 2ND BYTE 
;SEE IF LAST BYTE 
:1F SO: BR 


NO, COUNT TIME 

SAVE TAPE SPEED TIME 
7 REWIND 

; ANYMORE DRIVER? 


YES 
; TERMINALS TIMER 
;PRINT ""TAPE SPEED FWD*' 


PRINT RANGE 





kK 3 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 37 SEQ 0036 
CZTSEB.P11 16-FEB-78 11:08 


004737 007566 sPRINT “END OF TIMING" 
001002 sACT MODE? ++ C.W 
$ BRANCH - IF YES ++ C.W 


000042 1$: ;GET MONITOR'S ADDRESS ++ C.W 
E ;BRANCH = IF NOT AUTO MODE ++ C.W 
R :CLEAR THE WORLD ++ C.W 
SENDAD: :GO TO MONITOR'S ADDRESS ++ C.W 
N 


HERE: 
000137 001310 sRESTART ++ C.W 


RESET DRIVE SELECTION TO LOWEST NUMBER 
005037 006366 RSFDRV: CLR CDORIVE START WITH DRIVE 0 
100000 006370 MOV #100000,CDORVBT ;INITIALIZE FOR 0 
006370 006372 RSF1: : ee sMASK WITH SELCTED DRIVES 


2 
006366 CORIVE :+#1 TO DRIVE NUMBER 


006370 ~ 4 :MOVE MASK BIT TO NEXT DRIVE 
006376 : _ oe CHECK 9 TRACK 


006312 000207 





>F Pr OOM 


AON o 


on) 


CZTSEBO TSO3 DR FCTN TMR 
16-FEB-78 11:08 


CZTSEB.P11 


006374 


006376 


006436 
006444 
006452 


105777 


000000 


013737 


000207 


012777 
012777 
000207 


012700 


000207 


013777 


000207 


172462 
006366 
006370 


006250 
000002 


006370 
006376 


006366 
006374 
174377 
000010 


020000 


011772 
177777 
017664 


006374 
172274 


172264 


000017 
172252 
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006372 


006374 


006374 
006366 


006374 


172340 
172334 


172300 


172256 


SELECT NEXT DRIVE IN SEQUENCE 
SKIP FIRST EXIT ADDRESS IF LAST DRIVE SELECTED 


CHGDRV: TSTB anTc 
BPL 74 AWAIT CUR 
CORIVE 3*#1 TO DRIVE 
a ;MOVE MASK BIT TO NEXT DRIVE 


CHG 

27,RSFORV sRESET TO LOWEST DRIVE 

#2,(6) ey SKIP FIRST EXIT 
x 


R 27 EXIT 
CHG1: CORVBT DRIVES sMASK WITH SELECTED DRIVES 
B CHGDRV ; CHECK FOR NEXT DRIVE 
aaa sCHECK 9 TRACK 


CDORIVE: 
CORVBT: 
DRIVES: 
FDRIVE: 


> CHECK TRACK DRIVES 


GTNINE: CORIVE ,FORIVE 
FDRIVE sPOSITION UNIT SELECT BITS 
#174377,FORIVE ;CLEAR ALL OTHER BITS 
#10, CORIVE TEST FOR 9 TRACK 


GNT1 NO 
acai 7YES SET 9 TRACK BIT 


GNT1: 
: INITIALIZE BYTE COUNT AND CURRENT ADDRESS FOR WRITE 
WRINT: MOV #-BLENTH,aBC 
MOV #WBUF ,aCA 
RTS 17 
sSTORE 1°S IN WRITE BUFFER 
ST1S: #WBUF, 20 
STISA: #-1, (0)+ 
C #WBUF ¢BLENTH#2, x0 
STISA 
%7 
sSTART REWIND OPERATIONS 
STRREW: MOV FORIVE ,aMTc sSELECT DRIVE 
STRW: amTc 
74 sWAIT FOR CU READY 


ants 
74 :WAIT FOR TAPE UNIT READY 
AE aa :GO REWIND 


WAIT FOR CONTROL UNIT READY 
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WAIT FOR REWIND TO FINISH 
013777 006374 172240 WATREW: MOV FORIVE ,amTc 
172232 ROR ants 


nh 
000040 172222 #40, anTS 1S BOT SET? 
+4 SYES 


ERROR, NOT AT BOT AFTER REWIND 
000207 27 


;KEEP COUNT OF ELAPSED TIME 
EXIT EVERY 100 USEC 


005777 172222 TIMER: 


172214 
006606 I :+1 TO 100 USEC COUNT 


MMAMAVIVIMAVI VIII) 
MPP 
WNM—SOOCOnNOufwn—o 


ee et ee ee ee ed eed ed 


~=7M1+20. 
-=TM2+20. 
.=7M3+20. 
-=7M4+20. 
=TM5+20. 
.=TM6+20. 
=7M7+20. 
007050 .=7M8+20. 


006754 
007000 
007024 
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;PRINT TITLE OF TEST EXECUTED AND THE DRIVE TIMES 


007050 007566 TYPTIM: JSR <7, TOP PRINT TITLE 
007304 TYPTO: (0)+,VALUE :GET TIME 
177777 + 007304 a sFINISHED TIME BUFFER 
+ 
27 
007316 007314 #DECPNT+2,DECPNT; INITIALIZE DECIMAL VALUE POINTER 
000040 007312 #40,ZERO INITIALIZE SPACE 
177774 007306 #-4 ,DIGCNT DIGIT COUNT 
177777 ~=007310 : #-1,D1GIT : INITIAL VALUE 
007310 : DIGIT :#1 TO VALUE 
000162 007304 @DECPNT,VALUE ;SUBTRACT CONSTANT 
TYPT2 NOT NEGATIVE YET 
000152 007304 @DECPNT,VALUE RESTORE LAST POSITIVE VALUE 
007234 %7,DECOUT PRINT DECIMAL DIGIT 
007306 Pha #1 TO DIGIT COUNT 
010152 010070 #MSG2B ,MESAGE 
007566 %7,T0P 


B TYPTO 
177777 007306 : #-1,DIGCNT :CHECK FOR DECIMAL PLACE 
B TYPT3 NO 
171614 arPs 
000056 171606 #'.,aTPB :PRINT DECIMAL POINT 
000060 007312 #60,ZERO 
000002 007314 TyYPT3: #2, DECPNT :+2 TO DECIMAL VALUE POINTER 
000730 B TYPT1 [D0 AGAIN 
005737 007310 DECOUT: 1 DIGIT its DIGIT 0 
007312 007310 K ZERO,DIGIT > SUPPRESS LEADING ZEROS 
000060 007312 DECI: #60, ZERO s INITIALIZE ZERO AFTER SOME VALUE FOUND 
000060 007310 B #60,DIGIT [CONVERT TO ANSCII 
171530 7 oT aTPs 


wah 
007310 171522 DIGIT.aTPB ;PRINT 


CONTAINS ZERO OR SPACE 


DECPNT: 


007324 000001 
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FRARAAAAAAA AAAS R AAA EATER AAAA TEAR RARAAAAEKAKEKAEEEE 


sTTY ENTRY SUBROUTINE: 


THIS SUBROUTINE IS USED BY THE TEST CONDITION 
ENTRY ROUTINE TO READ THE RESPONSE ENTERED 
;AT THE TTY AND CHECK THEM FOR LEGALITY AND 
LIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 
:(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
;THE CALLING ROUTINE. 

:1F AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
3A QUESTION MARK IS TYPED (7?) AND THE RESPONSE 
sMAY BE REENTERED. 

ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
MAY BE TERMINATED AT LESS THAN SIZ BY TYPING A 
; CARRIAGE RETURN 


eee eerie iit ial ililitiiitiiiiiiiiritititititiiiititititiiiit, 
007326 005037 001052 TTR: TEMP) ;CLEAR FIRST CHARACTER FLAG 


C 20 
007514 TTRO: 27,1TIN :GO READ CHARACTER 
000215 001050 #215,TIB SEE IF CR 
TTR1 IF NOT: BR 
001052 TEMP1 sSEE IF FIRST CHARACTER 
TTRS :1F SO: BR 
007450 J TTR2 sELSE GO LOAD VALUE 
000260 001050 : #260,TIB SEE IF CHAR IS LESS THAN 0 
B TTRIA :1F NOT: BR 
007474 J TINER ELSE GO TO ERROR 
000270 001050 : #270,TIB :SEE IF CHAR IS GREATER THEN 7 
B TTR1B :1F NOT: BR 
007474 J TINER ZELSE GO TO ERROR 
001052 : TEMP) SET FIRST CHARACTER FLAG 


20 
20 SHIFT 3 LEFT 


x0 

177770 001050 #177770,TIB STRIP ASCII 

001050 TIB,%0 ;LOAD CHARACTER 
21 SEE IF DONE 
TTRO :1F NOT: BR 
20,%2 :SEE IF EXCEEDED MAXIMUM LIMIT 
TTRS :1F NOT: BR 

007474 TINER sELSE 60 TO ERROR 
73,20 ;SEE IF BELOW MINIMUM LIMIT 
TTR4 :1F NOT: BR 

007474 TINER ELSE GO TO ERROR 

: 20,(5) ;LOAD VALUE 
007472 000207 : %7 sEXIT 





C 4 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 42 SEQ 0041 
CZTSEB.P11 16-FEB-78 11:08 


sTTY ENTRY ERROR SUBROUTINE tteeeeeres 


007474 012737 011422 010070 TINER: MOV #MSG34 ,,MESAGE 

004737 007566 7,TOP sPRINT? 

162716 000020 ’ ;RESET SP TO START OF VALUE ROUTINE 
007512 000207 %7 ;READO VALUE ENTRY 


sTTY READ SUBROUTINE tteeereeee 
007514 005077 


001050 
171246 


001050 171240 
007564 000207 


s TELETYPE OUTPUT PACKAGE 


007566 142777 000177 171226 TOP: #177,aTPS CLEAR FLAGS 
000270 007704 @ME SAGE ,EOMK 7 SAVE y bts DELIMETER 
010070 IN MESAGE :+2 TO POINTER 
000256 007704 TOP1: a a :IS CHARACTER THE 2ND DELIMETER 
-¢ ;N 


:NO 
27 :YES END 
000244 000100 a 1 ata AN @ INDICATING A CARRIAGE RETURN 


171166 aTPs ‘ 

000226 171160 @MESAGE,aTPB =; PRINT CHARACTER 

010070 TOP2: ME SAGE :+2 TO POINTER 
007650 000756 B TOP1 LOOP 


CARRIAGE RETURN, LINE FEED 
007652 105777 171144 TOPS: aTPs 
BP 


a4 
000215 171136 #215, aTPB 
171130 aTPs 


.=4 
000212 171122 #212, aTPB 
R TOP2 


007704 000000 
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RR RBRARARARRRAARASARRSRRARARAARASLASAAESAEARRRARARARARA REAR AAS SRSA SS | 


1688 

1689 ; LARRBRARAABAAAASLASALARRAAARASAARASLASASESEALEAASLELELEE SESE RASA R ERAS SSS 
1690 3 MODIFIED JAN 23 1978 

1691 

1692 3 ++ 

1693 3 CHECK FOR DUMP MODE OR AUTOMATIC/ACT11-XXDP MODE 

i oat 

1696 007706 005037 001000 CKMODE: CLR AUTOM ; INIT AUTOMATIC MODE INDICATOR 
1697 007712 105037 001062 CLRB ACT11M s INIT ACT11 AUTO MODE INDICATOR 
1698 007716 105037 001003 CLRB XXDPM s INIT XXDP AUTO MODE INDICATOR 
1699 007722 105037 001004 CLRB ADUMPM s INIT ACT11 DUMP MODE INDICATOR 
1700 007726 105037 001005 CLRB XDUMPM s INIT XXDP DUMP MODE INDICATOR 
1701 007732 005737 000042 TST a#42 ;AUTO MODE? 

1702 007736 001424 BEQ 2$ sBRANCH = IF NO 

1703 007740 005237 001000 INC AUTOM 3SET AUTO MODE INDICATOR 

1704 007744 032737 020000 000052 BIT #20000,a#52 MANUAL INTERVENTION? 

1705 007752 001402 BEQ 6$ ;BRANCH - IF NO 

1706 007754 000137 010032 JMP ABORT ;ABORT THE PROGRAM 

1707 007760 023737 000042 000046 6$: CMP a#42 ,a#46 3;ACT11 MODE? 

1708 007766 001403 BEQ 1$ BRANCH - IF YES 

1709 007770 105237 001003 INCB XXDPM ; INDICATE XXDP AUTO MODE 

1710 007774 000415 AR 5$ AND EXIT 

1711 007776 105237 001002 1$: INCB ACT11M s INDICATE ACT11 AUTO MODE 

1712 010002 005037 001054 CLR SPTF :D0 NOT SELECT SPEED TEST 

1713 010006 000410 BR 5$ AND EXIT 

1714 010010 105737 000041 2$: TSTB a#4i ;MAN/MODE VIA ACT11/PAPER TAPE? 
1715 010014 001003 BNE 3$ s;BRANCH - IF NOT 

1716 010016 105237 001004 INCB ADUMPM ; INDICATE MAN/MODE VIA ACT11/PAPER TAPE 
1717 010022 000402 BR 5$ AND EXIT 

1718 010024 105237 001005 3$: INCB XDUMPM ; INDICATE MANUAL MODE VIA XXDP 
1719 010030 000207 5$: RTS PC ;RETURN 

1720 

1721 

1722 
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\RARRBRARABRARARARAARARSRARASALALASASASASEE SESE REARS RRR ASE SA RASS SS SS 


MODIFIED JAN 23 1978 


++ 


CHECK FOR DUMP MODE OR AUTOMATIC/ACT11-XXDP MODE 


010032 000005 RESET ;CLEAR THE WORLD 
010072 010070 #MSGO,MESAGE GET ABORT MESAGE 
007566 27,TOP :PRINT ABORT MESAGE 
001003 :XXDP AUTO MODE? 
;BRANCH = IF NO 
000042 :GET MONITOR EXIT ADDRESS 
000042 42 ;USE AS ABORT FLAG 
EXIT TO XXDP MONITOR 
010066 000777 : . ;AND HANG 


ARR BRBRRBABRBARRRRASARARARSAARARARRASARASAAAARAARRRARASERASASSASS ARDS SS I 
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1743 
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010070 000000 MESAGE: 0 


010072 040057 051120 043517 MSGO: .ASCII ;/@PROGRAM ABORTED 
020115 041101 
042524 004504 


040100 052506 MSG2: .ASCII ;/@@FUNCTION 
044524 047117 

020040 020040 

027440 

047125 052111 MSG2A: .ASCII ;/ UNIT /; 


027440 MSG2B: .ASCII ;/ /; 
052111 MSG3: ASCII =; /@WRITE FROM BOT 
046517 
020040 


052111 MSG4: :/@WRITE SHUTDOWN 
052125 
020040 


052111 MSGS: :/@WRITE START 
051101 
020040 


052124 MSG6: :/@SETTLE DOWN DELAY /; 
053517 
040514 


052111 MSG7: .ASCII ;/@WRITE TO ERASE HEAD/; 
042440 
044040 


052111 MSG8: .ASCII ;/@WRITE NONSTOP GAP /; 
051516 
040507 


045503 MSG9: .ASCII ;/@BACKSPACE SHUTDOWN /; 
020105 
047504 


042101 MSG10: .ASCII ;/@READ SHUTDOWN /; 
042124 
020040 


050101 MSG11: .ASCII ;/@@GAPS SHOULD = 8>7>6>5>4>3, 3=2=1 (+0R- 5.0)/; 


MSGITA: .ASCII ;/@GAP 1 


010530 020040 020040 020040 
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010536 ae 2 020040 057 


044522 MSG12: .ASCII ;/@WRITE XIRG /; 
051111 


MSG13: . ;/@READ FROM BOT fs 
MSG14: . ;/@LAST CHAR TO CU RDY/; 
MSG15: . ;/@WRITE EOF /; 
MSG16: . :/@EOR TO EOF SPACE /; 
MSG18: . :/@SPACE SHUTDOWN 3 
MSG20: . :/@ONE INCH DATA TIME /; 
MSG21: . ;/@TAPE SPEED FWD /; 


MSG27: . p/QreeereeeeeeEND OF TIMING teeeeeeeeeeg/; 


025052 


052132 $ ;/@aCZTSEBO TSO3 DR FCTN TMR/; 
052040 
051104 
020116 


040522 t » :/ RANGE MAX - MIN@ /; 
040515 
044515 


052440 t % ;/@NO UNITS AVAILABLE FOR TEST @PRESS CONTINUE WHEN READY@/; 


MmnN— 


ooooooooo°o°ocooO 
— ss SS st SY os SS SS ss SS 
— a oe a os Hs st 
SSSSVVsy 
OSMFKAONWLONSAMWSH 


0 
041440 047117 044524 


tN— 





I 4 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 48 SEQ 0047 
CZTSEB.P11 16-FEB-78 11:08 


011226 052516 020105 044127 
040505 


044507 : ASCII ;/@REGISTER START: /; 
051440 
052122 020072 


051500 042520 : ASCII ;/@SPEED TEST (1=YES-O0=NO): /; 


ASCII ;/@MOUNT SKEW TAPE ON ALL AVAILABLE UNITS: TYPE CR WHEN READY/; 


042522 042101 
011422 020077 O57 MSG34: .ASCII ;/ ? /; 


011427 033040 030462 RMSG1: .ASCII ;/ 621.0 
a 


033461 RMSG2: .ASCII ;/ 17.6 
030440 


027071 RMSG3: .ASCII 
031063 


033063 RMSG4: .ASCII 
031440 


027066 RMSG5: .ASCII 
034065 


033440 RMSG6: .ASCII 
033040 


033440 RMSG7: .ASCII 
033040 


034463 RMSG8: .ASCII ;/ . 32.0/; 
031440 


027066 RMSG9: .ASCII ;/ 366.0 - 300.0/; 
030063 


027070 RMSG10: .ASCII ;/ 258.0 = 212.0/; 
030462 


011656 020057 031064 027060 RMSG11: .ASCII ;/ 420.0 = 340.0/; 





J 4 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 49 SEQ 0048 
CZTSEB.P11 16-FEB-78 11:08 


011664 020060 020055 032063 


027060 RMSGI2: . :/ 400.0 
031063 


027067 RMSG13: . re 
020055 027066 


Oo 
_ 
~m 


ek ek a as 
OONAOUEW 


034040 027071 RMSG14: . if 
weet * 031467 


020040 034470 RMSGI5: . i/ 
026440 033440 
011766 027063 027460 


011772 000000 
000001 








CZTSEBO TSO3 D 
CZTSEB.P11 


010032 
001002 
001004 
001000 
001004 


005670 
001006 


001032 
006366 


006370 
006314 


006350 


006374 


006434 


010070 


010072 
010410 
010436 
010515 


010543 


011072 


R FCTN TMR 


16-FEB-78 11:08 


1384 1421 
890* 902+ 
1405 


903* 


1470 
1459 


864 
1208 


1697* 
907 
1480+ 
949 
1473 
14644 
885 
1223 


kK 4 
MACY11 30A(1052) 16-FEB-78 11:10 PAGE 51 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1711* 


967* 


1117 


1146* 


1048* 1069+ 


1189 1200 


1572s 


1150* 


1154* 


1317* 


1318* 


SEQ 0049 





CZTSEBO TSO3 DR FCTN TMR 


CZTSEB.P11 
MSG29 011126 
$G3 010156 
$G30 011154 
$631 011246 
$G32.0 011271 
$633. 011325 
$634 011422 
SG4 010204 
$G5 010232 
$G6 010260 
$G7 010306 
$68 010334 
SG9 010362 
TC 001002 
TD 001010 
TRD 001012 
TS 001000 
TV 001026 
ULBAK 003552 
ULWRT 003534 
UL1 003654 
UL2 003672 
L3 003710 
REGS 001030 
RMSG1 =—s_« 011427 
MSG10 011636 
MSG11 011656 
MSG12 011676 
MSG13. 011716 
MSG14 011734 
MSG15 011753 
MSG2 011447 
MSGS 011466 
MSG4 011505 
RMSGS) =: 0111524 
MSG6 011543 
RMSG7 =: 011561 
RMSGB) = 011577 
RMSG9 =: 0116 16 
RSFORV 006250 
RSF1 006262 
RSF2 006306 
R10 001034 
R11 001036 
R12 001040 
R13 001042 
SPTF 001054 


16-FEB-78 11:08 


L 4 
MACY11 30A(1052) 16-FEB-78 11:10 PAGE 52 
CROSS REFERENCE TABLE -- USER SYMBOLS 


17654 


14364 


1079* 
1081* 
1085* 
1089* 
728 


1456 © 


1083* 


733 


1087+ 


802 


1091+ 


1712+ 


857 
1184* 


1111* 


1124* 


847* 

964* 
1040* 
1070* 
1181* 
1284* 
1354* 


971 
1242* 


SEQ 0050 


894 

969* 
1045* 
1075* 
1188* 
1290* 
1402* 


986 
1327 


CZTSEBO TSOS DR FCTN TMR 
CZTSEB.P11 


001014 


006606 


006564 
007474 
001020 
001016 
006610 


006634 


007566 


007606 


16-FEB-78 11:08 


Mm 4 
MACY11 30A(1052) 16-FEB-78 11:10 PAGE 53 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1658+ 
1656 


919 





1128 


1486# 


1673+ 
1663+ 


1002 


1207 


1007 





1268 1296 1363 14944 


1655* 


938* 
37 


1684* 
1679 


1137 1141 1145 1149 


953 
1256* 
1521 
1235 


1153 


SEQ 0051 


954* 


1157 





4 
CZTSEBO TSOS DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11: 10 PAGE 54 SEQ 0052 
CZTSEB.P11 16-FEB-78 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS 


1214 1219 1247 1302 1371 1376 1381 1416 15424 
007054 


003362 





8 5 
CZTSEBO TSO3 OR FCTN TAR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 55 SEQ 0053 
CZTSEB.P11 16-FEB-78 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS 


1108 1129* 


753 756 767 769* 1386* 
55 1580# 


1272 
011772 03 1189 


006436 809 7 1018 
1230 
001005 


011774 


- ABS. 011774 000 


ERRORS DETECTED: 0 


CZTSEB,CZTSEB.SEQ/CRF/SOL/NL: TOC=SYSMAC.SML 400,1066 ,CZTSEB.P11 400,1424 
RUN-TIME: 9 11 .6 SECONDS 
RUN-TIME RATIO: 494/21=22.8 





. % 
CZTSEBO TSO3 DR FCTN TMR MACY11 30A(1052) 16-FEB-78 11:10 PAGE 56 SEQ 0054 
CZTSEB.P11 16-FEB-78 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS 


CORE USED: 31K (61 PAGES) 


DOCUMENT PAGES: 54 





